home *** CD-ROM | disk | FTP | other *** search
/ Horoscope Companion: Gemini / Horoscope Companion: Gemini.iso / pc / gemini / cc.dir / Internal_12.ls < prev    next >
Encoding:
Text File  |  1996-10-08  |  354 b   |  23 lines
  1. on startRollover whichSprite
  2.   hStartRolloverAction(whichSprite)
  3. end
  4.  
  5. on mouseDown
  6.   if hButtonAction02() then
  7.     mouseUp()
  8.   end if
  9. end
  10.  
  11. on mouseUp
  12.   global gWhichSex
  13.   cursor(4)
  14.   hCheckCurrentFrameLabel()
  15.   set gWhichSex to "M"
  16.   puppetSprite(the clickOn, 0)
  17.   play frame "C man"
  18. end
  19.  
  20. on endRollover whichSprite
  21.   hEndRolloverAction(whichSprite)
  22. end
  23.